VERSION 5.00
Object = "{76DA8CE9-E736-47FC-B43F-82650E2EFBAF}#1.0#0"; "oControls.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmStartUp 
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   0  'None
   Caption         =   "Start Up"
   ClientHeight    =   10485
   ClientLeft      =   120
   ClientTop       =   450
   ClientWidth     =   15735
   FillColor       =   &H00CCFFED&
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   10485
   ScaleWidth      =   15735
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin oControls.oFrames oFrames1 
      Height          =   4560
      Left            =   7905
      Top             =   120
      Width           =   7710
      _ExtentX        =   13600
      _ExtentY        =   8043
      FrameColor      =   16777215
      FillColor       =   16777215
      RoundedCorner   =   0   'False
      Alignment       =   0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin oControls.oFrames oFrames2 
      Height          =   4560
      Left            =   105
      Top             =   120
      Width           =   7710
      _ExtentX        =   13600
      _ExtentY        =   8043
      FrameColor      =   16777215
      BackColor       =   16777215
      FillColor       =   16777215
      RoundedCorner   =   0   'False
      Caption         =   "Window Configurations"
      Alignment       =   0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Picture         =   "StartUp.frx":0000
      Begin MSComDlg.CommonDialog CommonDialog1 
         Left            =   4185
         Top             =   600
         _ExtentX        =   847
         _ExtentY        =   847
         _Version        =   393216
      End
      Begin oControls.oCommandButton btnPickColor 
         Height          =   270
         Left            =   2955
         TabIndex        =   4
         Top             =   1095
         Width           =   285
         _ExtentX        =   503
         _ExtentY        =   476
         BTYPE           =   3
         TX              =   "..."
         ENAB            =   -1  'True
         BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         COLTYPE         =   1
         FOCUSR          =   -1  'True
         BCOL            =   15790320
         BCOLO           =   15790320
         FCOL            =   0
         FCOLO           =   0
         MCOL            =   12632256
         MPTR            =   1
         MICON           =   "StartUp.frx":0A12
         UMCOL           =   -1  'True
         SOFT            =   0   'False
         PICPOS          =   0
         NGREY           =   0   'False
         FX              =   0
         HAND            =   0   'False
         CHECK           =   0   'False
         VALUE           =   0   'False
      End
      Begin VB.TextBox txtFillColor 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   1620
         Locked          =   -1  'True
         TabIndex        =   3
         Text            =   "&H00CCFFED&"
         Top             =   1095
         Width           =   1320
      End
      Begin VB.ComboBox Combo1 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         ItemData        =   "StartUp.frx":0A2E
         Left            =   1620
         List            =   "StartUp.frx":0A41
         Style           =   2  'Dropdown List
         TabIndex        =   0
         Top             =   720
         Width           =   1635
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Frame Fill Color : "
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   315
         TabIndex        =   2
         Top             =   1155
         Width           =   1245
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Frame Theme : "
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   315
         TabIndex        =   1
         Top             =   780
         Width           =   1125
      End
   End
   Begin oControls.oFrames oFrames3 
      Height          =   5595
      Left            =   120
      Top             =   4815
      Width           =   15480
      _ExtentX        =   27305
      _ExtentY        =   9869
      FrameColor      =   16777215
      FillColor       =   16777215
      RoundedCorner   =   0   'False
      Alignment       =   0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
End
Attribute VB_Name = "frmStartUp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim sBit() As Boolean
Public mode As eMode

'----------------------------------------------------------------------------------------------------------------------------------
'Standard Programming Format----------------------------------------------------------------------------------------
'----------------------------------------------------------------------------------------------------------------------------------
Public Sub TBNew()

End Sub

Public Sub TBEdit()

End Sub

Public Sub TBDelete()

End Sub

Public Sub TBSave()

End Sub

Public Sub TBUndo()

End Sub

Public Sub TBFind()

End Sub

Public Sub TBPrint()

End Sub

Public Sub TBFirst()

End Sub

Public Sub TBPrevious()

End Sub

Public Sub TBNext()

End Sub

Public Sub TBLast()

End Sub

Public Sub TBNewLine()

End Sub

Public Sub TBDeleteLine()

End Sub

Public Sub TBApprove()

End Sub

Public Sub TBReject()

End Sub

Public Sub TBUntag()

End Sub

Public Sub TBClose()
    On Error Resume Next
    Unload Me
End Sub

Public Sub TBReload()
    Me.ZOrder
    Set FrmName = Me
    BitEnable sBit, Me, MiniERPMain
End Sub

Private Sub btnPickColor_Click()
  CommonDialog1.CancelError = True
  On Error GoTo ErrHandler
  CommonDialog1.FLAGS = cdlCCRGBInit
  CommonDialog1.ShowColor
  
  txtFillColor.Text = Hex$(CommonDialog1.Color)
  Exit Sub

ErrHandler:
End Sub

Private Sub Form_Click()
    TBReload
End Sub

Private Sub Form_Load()
    mode = Normal
    BitSetEnable MiniERPMain.tbMain, "0000000100000000010", sBit()
    BitEnable sBit, Me, MiniERPMain
End Sub
